home *** CD-ROM | disk | FTP | other *** search
/ CD Classic 39 / CD CLASSIC #39 (1998).iso / EMPRESA / visio / Vistdstd / Install / Data.Z / Showargs.FRM < prev    next >
Text File  |  1997-05-23  |  2KB  |  64 lines
  1. VERSION 4.00
  2. Begin VB.Form Form1 
  3.    Caption         =   "Developing Visio Solutions"
  4.    ClientHeight    =   1935
  5.    ClientLeft      =   1140
  6.    ClientTop       =   1515
  7.    ClientWidth     =   7950
  8.    Height          =   2340
  9.    Left            =   1080
  10.    LinkTopic       =   "Form1"
  11.    ScaleHeight     =   1935
  12.    ScaleWidth      =   7950
  13.    Top             =   1170
  14.    Width           =   8070
  15.    Begin VB.CommandButton cmdClose 
  16.       Caption         =   "Close"
  17.       Height          =   495
  18.       Left            =   2760
  19.       TabIndex        =   2
  20.       Top             =   1200
  21.       Width           =   1215
  22.    End
  23.    Begin VB.TextBox txtArgs 
  24.       Enabled         =   0   'False
  25.       Height          =   495
  26.       Left            =   120
  27.       TabIndex        =   0
  28.       Top             =   480
  29.       Width           =   6735
  30.    End
  31.    Begin VB.Label Label1 
  32.       Caption         =   "Arguments passed:"
  33.       Height          =   255
  34.       Left            =   120
  35.       TabIndex        =   1
  36.       Top             =   240
  37.       Width           =   1815
  38.    End
  39. End
  40. Attribute VB_Name = "Form1"
  41. Attribute VB_Creatable = False
  42. Attribute VB_Exposed = False
  43. Private Sub cmdClose_Click()
  44.     End
  45. End Sub
  46.  
  47. Private Sub Text1_Change()
  48.  
  49. End Sub
  50.  
  51.  
  52. Private Sub Form_Load()
  53.     txtArgs.Text = Command$
  54.     Form_Resize
  55. End Sub
  56.  
  57.  
  58. Private Sub Form_Resize()
  59.     txtArgs.Width = Width - 400
  60.     cmdClose.Left = Width / 2 - cmdClose.Width / 2
  61. End Sub
  62.  
  63.  
  64.